-- background: 4757 from stack: in.1
-- bmap block id: 5383
-- flags: 4000
-- background id: 0
-- name: elementInfo
----- HyperTalk script -----
on mainAction

  Global t -- var used for converting sci to decimal
  Global unitNo -- var used for storing the current unit number
  Global fieldName -- var used for containing the current field name
  Global Git -- var global it
  Global unitFieldName, zeroFieldName
  doConvert

  if field zeroFieldName = 0 then
    put "•" into field unitFieldName
    put "-" into field fieldName
  end if

end mainAction


on doConvert

  Global convFact2, convFact3, convFact4
  Global unit1, unit2, unit3, unit4,t,sciNumber,mresult

  Global fieldName, unitFieldName, Git, zeroFieldName

  -- * get the number to convert to decimal in invisible field *
  put field fieldName into t


  Convert t,"d->s" -- * check if sci. not., if no convert to it *
  put t into n -- * put the converted number into n *

  -- * put fieldname into zero before change *
  put fieldName into zeroFieldName

  -- * put number in destination field *
  put fieldName & "2" into fieldName

  -- * Do actual conversions *

  if Git = 1 then -- the first menu item was chosen
    multiply t,1 -- do conversion
    put mresult into field fieldName -- get result of multiplication
    put unit1 into field unitFieldName -- and put it and unit in field

  Else
    if Git = 2 then -- the second menu item was chosen
      multiply t,convFact2 -- do conversion
      put mresult into field fieldName -- get result of multiplication
      put unit2 into field unitFieldName

    Else
      if Git = 3 then -- the third menu item was chosen
        multiply t,convFact3 -- do conversion
        put mresult into field fieldName -- get result of multiplication
        put unit3 into field unitfieldName

      Else
        if Git = 4 then -- the fourth menu item was chose
          multiply t,convFact4 -- do conversion
          put mresult into field fieldName -- get result of multiplication
          put unit4 into field unitFieldName
        end if
      end if
    end if
  end if
end doConvert


on Convert -- converts sci notation into decimal
  Global sciNumber
  put the param of 1 into n
  if the param of 2 = "s->d" then
    if the number of words in n > 1 then -- if two words, then sci not.
      put word 1 of n into number1
      put word 2 of n into number2
      put empty into char 1 of number2
      put 10^number2 into number2
      put number1 * number2 into sciNumber
    else
      put n into sciNumber
    end if
  Else
    if the param of 2 = "d->s" and the number of words in n <= 1 then
      put trunc(ln(n)/ln(10)) into n2 -- find power of number
      if n <> 0 then
        if n2<1 and n2>-1 then -- if power less than one, put nothing in pwr
          put n into sciNumber
        else -- if power is 1 or greater, put the power in the exponential
          put "e"&n2 into n4
          put n/(10^n2) into n3 -- divide the number by the highest pwr of 10
          set numberFormat to "0.####"
          put n3 into n3
          put n3 && n4 into sciNumber -- put the decimal and power together
        end if
      end if
    else
      put the param of 1 into sciNumber
    end if
  end if

end Convert

on multiply
  Global mresult --variable to put result of multiplication


  put the param of 1 into tno1 -- multiplier into tno1
  put the param of 2 into tno2 -- multiplicand into tno2
  put word 1 of tno1 into tno1m -- put mantissa of multiplier in tno1
  put word 1 of tno2 into tno2m -- put mantissa of multiplic. in tno2
  put word 2 of tno1 into tno1e -- put exponent of multiplier in tno1e
  put word 2 of tno2 into tno2e -- put exponent of multiplic. in tno2e
  put empty into char 1 of tno1e -- wipe out the "e" in the exponent
  put empty into char 1 of tno2e -- wipe out the "e" in the exponent
  set numberFormat to "0.####" -- sets number format to 0.0000
  put tno1m * tno2m into tnomr -- multiplies mantissa's

  --if the mantissa result > zero then add
  --the exponents and put them into tnoer, else put nothing into
  --tnoer

  if tnomr >0 then
    put tno1e + tno2e into tnoer
  else
    put empty into tnoer
  end if

  --checks the magnitude of the result mantissa

  put trunc(ln(tnomr)/ln(10)) into tnomrtemp

  if tnomrtemp >=1 or tnomrtemp < 0 then

    put tnomrtemp + tnoer into tnoer
    put tnomr/(10^tnomrtemp) into tnomr

  end if

  if tnoer = 0 and tnomr>0 then
    put tnomr into mresult
  else
    if tnomr=0 then
      put "-" into mresult
    else
      put tnomr && "e" & tnoer into mresult
    end if
  end if
end multiply

on tempConvert

  Global TGit -- * global variable to hold temp unit number *
  Global fieldName -- * global variable to hold name of invisible field

  put field fieldName into zeroField

  -- * put number in destination field *
  put fieldName & "2" into fieldName

  if TGit = 1 then
    put zeroField into field fieldName
    if "boil" is in fieldName then
      put "(°C)" into field "boilUnit"
    else
      put "(°C)" into field "meltUnit"
    end if

  Else
    if TGit = 2 then
      put zeroField * (9/5) + 32 into field fieldName
      if "boil" is in fieldName then
        put "(°F)" into field "boilUnit"
      else
        put "(°F)" into field "meltUnit"
      end if
    Else
      if TGit = 3 then
        put zeroField + 273.15 into field fieldName
        if "boil" is in fieldName then
          put "(K)" into field "boilUnit"
        else
          put "(K)" into field "meltUnit"
        end if
      end if
    end if
  end if

end tempConvert


on closeCard

  Global ARadiusFlag,GAVFlag,FIPFlag,ElectrResistFlag
  Global AHFlag,boilFlag,meltFlag,densityFlag
  Global thermCondFlag

  if thermCondFlag then
    if field "thermCond" = 0 then

      put "-" into field "thermCond2"
      put "•" into field "thermCondUnit"
    else
      put field "thermCond" into field "thermCond2"
      put "Watts/sq.cm" into field "thermCondUnit"
      put false into thermCondFlag
    end if
  end if



  if ARadiusFlag then
    if field "AtomicRadius" = 0 then
      put "-" into field "AtomicRadius2"
      put "•" into field "ARunit"
    else
      put field "AtomicRadius" into field "AtomicRadius2"
      put "(Å)" into field "ARunit"
      put false into ARFlag
    end if
  end if


  if GAVFlag then
    if field "GAV" = 0 then
      put "-" into field "GAV2"
      put "•" into field "GAVunit"
    else
      put field "GAV" into field "GAV2"
      put "(cu. cm)" into field "GAVunit"
      put false into GAVFlag
    end if
  end if

  if FIPFlag then
    if field "FIP" = 0 then
      put "-" into field "FIP2"
      put "•" into field "FIPunit"
    else
      put field "FIP" into field "FIP2"
      put "(eV)" into field "FIPunit"
      put false into FIPFlag
    end if
  end if

  if electrResistFlag then
    if field "electrResist" = 0 then
      put "-" into field "electrResist2"
      put "•" into field "electrResistunit"
    else
      put field "electrResist" into field "electrResist2"
      put "µohm-cm" into field "electrResistunit"
      put false into electrResistFlag
    end if
  end if

  if AHFlag then
    if field "AmpHr" = 0 then
      put "-" into field "AmpHr2"
      put "•" into field "AHunit"
    else
      put field "AmpHr" into field "AmpHr2"
      put "Amp-Hr" into field "AHunit"
      put false into AHFlag
    end if
  end if


  if boilFlag then
    if field "BoilPt" = 0 then
      put "-" into field "BoilPt2"
      put "•" into field "BoilUnit"
    else
      put field "BoilPt" into field "BoilPt2"
      put "°C" into field "BoilUnit"
      put false into boilFlag
    end if
  end if

  if meltFlag then
    if field "meltPt" = 0 then
      put "-" into field "meltPt2"
      put "•" into field "meltUnit"
    else
      put field "meltPt" into field "meltPt2"
      put "°C" into field "meltUnit"
      put false into meltFlag
    end if
  end if

  if densityFlag then
    if field "density" = 0 then
      put "-" into field "density2"
      put "•" into field "densityUnit"
    else
      put field "density" into field "density2"
      put "g per cu. cm" into field "densityUnit"
      put false into densityFlag
    end if
  end if

  hide bkgnd button id 72
  hide bkgnd button id 68
  hide bkgnd button id 67
  hide bkgnd button id 70
  hide bkgnd button id 77
  hide bkgnd button id 76
  hide bkgnd button id 66
  hide field "isoinfo1"
  hide field "isoinfo2"
  hide field "isoinfo3"
  hide field "sol.2"

end closeCard







-- part 1 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=52 top=2 right=19 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Symbol


-- part 15 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=41 top=21 right=39 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Symbol


-- part 17 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=77 top=61 right=78 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AtomicWt


-- part 18 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=90 top=95 right=112 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AtomicRadius


-- part 19 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=117 top=131 right=149 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GAV


-- part 20 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=114 top=178 right=196 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RelElectro


-- part 21 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=100 top=214 right=231 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIP


-- part 23 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=61 top=290 right=307 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Val


-- part 24 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=71 top=322 right=340 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AmpHr


-- part 27 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=430 top=1 right=20 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Density


-- part 28 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=457 top=31 right=48 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RelHard


-- part 29 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=428 top=56 right=73 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BoilPt


-- part 30 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=462 top=107 right=124 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SpecHeat


-- part 31 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=423 top=140 right=157 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thermCond


-- part 33 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=411 top=188 right=206 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Linear


-- part 34 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=457 top=223 right=240 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Elast


-- part 35 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=444 top=259 right=275 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TenStr


-- part 36 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=74 top=41 right=59 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AtomicNo


-- part 37 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=440 top=73 right=91 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MeltPt


-- part 39 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=292 top=313 right=337 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  put true into thermCondFlag
  set cursor to 4
  lock screen
  go to next card
  repeat while the short name of this card is "*Table" or the short name of this card is "ar*" or the short name of this card is "nr" or the short name of this card is "Ad" or the short name of this card is "Noble" or the short name of this card is "Halogen" or the short name of this card is "Metalloid" or the short name of this card is "Alkali" or the short name of this card is "Constants" or the short name of this card is "sortControl" or the short name of this card is "elementInfoHelp"
    go to next card
  end repeat
  unlock screen with dissolve very fast
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=189 top=313 right=337 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  go to prev card
  repeat while the short name of this card is "*Table" or the short name of this card is "ar*" or the short name of this card is "nr" or the short name of this card is "Ad" or the short name of this card is "Noble" or the short name of this card is "Halogen" or the short name of this card is "Metalloid" or the short name of this card is "Alkali" or the short name of this card is "Constants" or the short name of this card is "sortControl" or the short name of this card is "elementInfoHelp"
    go to prev card
  end repeat
  unlock screen with dissolve very fast
end mouseUp



-- part 41 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=436 top=290 right=307 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Latent


-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=7 right=27 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Gas


-- part 42 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=267 top=109 right=148 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen

  hide field isoInfo1
  hide field isoInfo2
  hide field isoInfo3
  hide background button id 72
  hide background button id 68
  hide background button id 67
  hide background button id 66
  hide background button id 70
  hide background button "Solubility and Stability"
  hide field "sol.2"
  hide background button "Close Solubility"

  go to card "*Table"
  unlock screen with visual effect dissolve fast
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=50 right=70 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Liquid


-- part 47 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=29 right=48 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Solid


-- part 48 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=402 top=308 right=340 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OxSt


-- part 49 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=222 top=243 right=264 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 50 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=117 top=233 right=250 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ElectrResist


-- part 53 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=190 top=79 right=100 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Iso
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  show field isoInfo1
  show field isoInfo2
  show field isoInfo3
  show background button id 72
  show background button id 68
  show background button id 67
  show background button id 66
  show background button "Close Isotope Info"
  unlock screen with checkerboard
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=250 top=162 right=184 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 29019 / 29019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  go to card field "Up"
  unlock screen with scroll down
end mouseUp



-- part 79 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=231 top=178 right=200 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----

on mouseUp
  set cursor to 4
  lock screen
  go to card field "Left"
  unlock screen with scroll right
end mouseUp





-- part 80 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=266 top=178 right=200 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  go to card field "Right"
  unlock screen with scroll left
end mouseUp




-- part 81 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=253 top=196 right=219 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 2730 / 2730
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----

on mouseUp
  set cursor to 4
  lock screen
  go to card field "Down"
  unlock screen with scroll up
end mouseUp




-- part 73 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=260 top=79 right=100 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Solubility
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  show background button "Solubility and Stability"
  show field "sol.2"
  show background button "Close Solubility"
  unlock screen with checkerboard
end mouseUp



-- part 77 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=340 top=176 right=198 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Solubility and Stability


-- part 74 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=340 top=197 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: sol.2


-- part 76 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=369 top=319 right=341 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Solubility
----- HyperTalk script -----
on mouseUp
  hide background button "Solubility and Stability"
  hide field "sol.2"
  hide background button "Close Solubility"
end mouseUp



-- part 82 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=210 top=113 right=145 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push card
  lock screen
  go to card "sortControl"
  unlock screen with dissolve
end mouseUp



-- part 83 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=81 top=94 right=112 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AtomicRadius2


-- part 86 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=4 top=80 right=112 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ARConvert
----- HyperTalk script -----
on mouseDown

  Global convFact2, convFact3, convFact4
  Global unit1, unit2, unit3, unit4
  Global Git
  Global fieldName, unitFieldName
  Global ARadiusFlag

  put true into ARadiusFlag
  get PopUpMenu("Å;m;cm;in", unitNo, 110, 10)
  put it into Git -- Global it

  put "(Å)" into unit1
  put "(m)" into unit2
  put "(cm)" into unit3
  put "(in)" into unit4

  put "1 e-10" into convFact2
  put "1 e-12" into convFact3
  put "3.937007 e-9" into convFact4
  put "AtomicRadius" into fieldName
  put "ARunit" into unitFieldName

  send mainAction to background "elementInfo"



end mouseDown



-- part 87 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=46 top=95 right=112 bottom=83
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: ARUnit


-- part 88 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=114 right=147 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GAVConvert
----- HyperTalk script -----
on mouseDown

  Global convFact2, convFact3, convFact4
  Global unit1, unit2, unit3, unit4
  Global Git
  Global fieldName, unitFieldName
  Global GAVFlag

  put true into GAVFlag
  get PopUpMenu("cu. cm.;cu. m;cu. in.;cu. ft.", unitNo, 147, 10)
  put it into Git -- Global it

  put "(cu. cm.)" into unit1
  put "(cu. m)" into unit2
  put "(cu.in.)" into unit3
  put "(cu. ft.)" into unit4

  put  "1 e-6" into convFact2
  put "6.102374409 e-2" into convFact3
  put  "3.5314 e-5" into convFact4
  put "GAV" into fieldName
  put "GAVunit" into unitFieldName

  send mainAction to background "elementInfo"



end mouseDown



-- part 91 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=104 top=131 right=149 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GAV2


-- part 90 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=56 top=132 right=148 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: GAVUnit


-- part 92 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=241 top=149 right=166 bottom=280
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Up


-- part 93 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=204 top=181 right=198 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Left


-- part 94 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=286 top=181 right=199 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Right


-- part 95 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=242 top=215 right=232 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Down


-- part 96 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=62 top=214 right=231 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIP2


-- part 97 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=102 top=201 right=218 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: FIPUnit


-- part 98 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=198 right=229 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ARConvert
----- HyperTalk script -----
on mouseDown

  Global convFact2, convFact3, convFact4
  Global unit1, unit2, unit3, unit4
  Global Git
  Global fieldName, unitFieldName
  Global FIPFlag

  put true into FIPFlag
  get PopUpMenu("eV;ergs", unitNo, 230, 10)
  put it into Git -- Global it

  put "(eV)" into unit1
  put "(ergs)" into unit2
  put " " into unit3
  put " " into unit4

  put "1.60219 e-12" into convFact2
  put "0" into convFact3
  put "0" into convFact4
  put "FIP" into fieldName
  put "FIPunit" into unitFieldName

  send mainAction to background "elementInfo"



end mouseDown



-- part 99 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=234 right=264 bottom=136
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ARConvert
----- HyperTalk script -----
on mouseDown

  Global convFact2, convFact3, convFact4
  Global unit1, unit2, unit3, unit4
  Global Git
  Global fieldName, unitFieldName
  Global FIPFlag

  -- let card know that the units have been changed in this card

  put true into FIPFlag

  -- routine to get results from pop-up menu

  get PopUpMenu("µOhm-cm;Circ. mil-Ohms per ft.;µOhm-inches;Ohm-cm",unitNo, 250, 10)
  put it into Git -- Global it, holds what unit was selected

  --load units into unit variables

  put "(µOhm-cm)" into unit1
  put "(Circ. mil.-Ohms/ft)" into unit2
  put "(µOhm-inches)" into unit3
  put "(Ohm-cm)" into unit4

  --load conversion factors into variables

  put "6.0153049" into convFact2
  put "3.9370079 e-1" into convFact3
  put "1 e-4" into convFact4
  put "ElectrResist" into fieldName
  put "ElectrResistunit" into unitFieldName

  -- send message to the main subroutine

  send mainAction to background "elementInfo"


end mouseDown



-- part 100 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=111 top=233 right=250 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ElectrResist2


-- part 101 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=5 top=250 right=263 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: electrResistUnit


-- part 103 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=71 top=322 right=340 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AmpHr2


-- part 104 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=7 top=309 right=327 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AHUnit


-- part 102 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=309 right=340 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AHConvert
----- HyperTalk script -----
on mouseDown

  Global convFact2, convFact3, convFact4
  Global unit1, unit2, unit3, unit4
  Global Git
  Global fieldName, unitFieldName
  Global AHFlag

  -- let card know that the units have been changed in this card

  put true into AHFlag

  -- routine to get results from pop-up menu

  get PopUpMenu("Amp-Hrs;Coulombs",unitNo, 279, 10)
  put it into Git -- Global it, holds what unit was selected

  --load units into unit variables

  put "Amp-Hrs" into unit1
  put "Coulombs" into unit2
  put " " into unit3
  put " " into unit4

  --load conversion factors into variables

  put "3.600 e3" into convFact2
  put "1" into convFact3
  put "1" into convFact4
  put "AmpHr" into fieldName
  put "AHunit" into unitFieldName

  -- send message to the main subroutine

  send mainAction to background "elementInfo"


end mouseDown



-- part 107 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=420 top=1 right=20 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Density2


-- part 106 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=342 top=18 right=36 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DensityUnit


-- part 105 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=342 top=4 right=36 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DensityConvert
----- HyperTalk script -----
on mouseDown

  Global convFact2, convFact3, convFact4
  Global unit1, unit2, unit3, unit4
  Global Git
  Global fieldName, unitFieldName
  Global DensityFlag

  -- let card know that the units have been changed in this card

  put true into DensityFlag

  -- routine to get results from pop-up menu

  get PopUpMenu("g per cu. cm;g per liter;lb. per cu. in.;lb. per cu. ft",unitNo, 20, 342)
  put it into Git -- Global it, holds what unit was selected

  --load units into unit variables

  put "g per cu. cm at 20°C" into unit1
  put "g per liter at 20°C" into unit2
  put "lb. per cu. in. 20°C" into unit3
  put "lb. per cu. ft. 20°C" into unit4

  --load conversion factors into variables

  put "1.0 e3" into convFact2
  put "3.6127292 e-2" into convFact3
  put "6.2427961 e1" into convFact4
  put "Density" into fieldName
  put "Densityunit" into unitFieldName

  -- send message to the main subroutine

  send mainAction to background "elementInfo"


end mouseDown



-- part 110 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=439 top=56 right=74 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BoilPt2


-- part 112 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=407 top=56 right=75 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BoilUnit


-- part 114 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=341 top=51 right=74 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BoilConvert
----- HyperTalk script -----
on mouseDown
  Global boilFlag
  Global TGit -- * global variable to hold temp unit *
  Global fieldName -- * global variable to hold invisible field temp *
  Global unitfieldName -- * global variable to hold unit field name *

  put true into boilFlag

  put the mouseloc into myPlace
  put item 1 of myPlace - 30 into horiz
  put item 2 of myPlace - 30 into vert
  get PopUpMenu("Centigrade;Farenheit;Kelvin",unitNo, 74, 342)
  put it into TGit -- * Global it, holds what unit was selected, temp *
  put "boilPt" into fieldName
  tempConvert
end mouseDown



-- part 116 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=428 top=73 right=91 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MeltPt2


-- part 115 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=341 top=75 right=99 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MeltConvert
----- HyperTalk script -----

on mouseDown
  Global meltFlag
  Global TGit -- * global variable to hold temp unit *
  Global fieldName -- * global variable to hold invisible field temp *
  Global unitfieldName -- * global variable to hold unit field name *

  put true into meltFlag

  put the mouseloc into myPlace
  put item 1 of myPlace - 30 into horiz
  put item 2 of myPlace - 30 into vert
  get PopUpMenu("Centigrade;Farenheit;Kelvin",unitNo, 92, 342)
  put it into TGit -- * Global it, holds what unit was selected, temp *
  put "meltPt" into fieldName
  tempConvert
end mouseDown




-- part 72 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=341 top=1 right=23 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Isotope


-- part 68 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=399 top=1 right=23 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: At. Wt.


-- part 67 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=459 top=1 right=23 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: %


-- part 113 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=73 right=91 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MeltUnit


-- part 132 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=0 top=57 right=77 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes


-- part 134 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=183 top=148 right=190 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 2065 / 2065
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  show bkgnd button id 133
  show field "notesField"
  show bkgnd button "notes"
  unlock screen with dissolve very fast
end mouseUp



-- part 135 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=304 top=153 right=179 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp

  set cursor to 4
  lock screen
  push card

  go to card "elementInfoHelp"

  unlock screen with dissolve very fast
end mouseUp



-- part 136 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=117 top=252 right=267 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 137 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=5 top=261 right=275 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name: 


-- part 131 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=76 right=342 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: notesField


-- part 133 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=30 top=315 right=337 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Notes
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  hide bkgnd button id 133
  hide bkgnd button "Notes"
  hide field "notesField"
  unlock screen with dissolve very fast
end mouseUp



-- part 138 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=473 top=18 right=36 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name: 


-- part 66 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=341 top=1 right=22 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Natural Isotope Data


-- part 139 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=448 top=90 right=108 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name: 


-- part 141 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=344 top=46 right=63 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name: 


-- part 147 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=423 top=140 right=157 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thermCond2


-- part 148 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=399 top=127 right=142 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name: thermCondUnit


-- part 71 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=340 top=20 right=178 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: isoInfo1


-- part 57 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=397 top=20 right=178 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: isoInfo2


-- part 60 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=457 top=20 right=178 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IsoInfo3


-- part 70 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=358 top=155 right=177 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Isotope Info
----- HyperTalk script -----
on mouseUp
  lock screen
  hide field isoInfo1
  hide field isoInfo2
  hide field isoInfo3
  hide background button id 72
  hide background button id 68
  hide background button id 67
  hide background button id 66
  hide background button id 70
  unlock screen with dissolve fast
end mouseUp



-- part 142 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=342 top=126 right=159 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thermCondConvert
----- HyperTalk script -----

on mouseDown

  Global convFact2, convFact3, convFact4
  Global unit1, unit2, unit3, unit4
  Global Git
  Global fieldName, unitFieldName
  Global thermCondFlag

  -- let card know that the units have been changed in this card

  put true into thermCondFlag

  -- routine to get results from pop-up menu

  get PopUpMenu("Watts per sq. cm;B.t.u. per hr. sq.ft.;B.t.u. per hr. sq. in.;Ft.lbs. per min. sq.ft.",unitNo, 154, 343)
  put it into Git -- Global it, holds what unit was selected

  --load units into unit variables

  put "Watts/sq. cm" into unit1
  put "B.t.u./(hr x sq. ft.)" into unit2
  put "B.t.u./(hr x sq. in.)" into unit3
  put "Ft. lbs./(min. x sq. ft.) " into unit4

  --load conversion factors into variables

  put "3.1721 e3" into convFact2
  put "2.2014374 e1" into convFact3
  put "4.11131 e4" into convFact4
  put "thermCond" into fieldName
  put "thermCondUnit" into unitFieldName

  -- send message to the main subroutine

  send mainAction to background "elementInfo"


end mouseDown